gusucode.com > 耐品图片管理系统 标准版A > 耐品图片管理系统 标准版A/About.asp

    <!--#include file="Head.asp"-->
<!--#include file="Inc/UBBCode.asp"-->
<!--#include file="Function.asp"-->
<%
With Netout
	.Load("Comm")
	MyHtml = Replace(Template.Html(6),"{?HelpInfo}",AboutInfo())
	MyHtml = Replace(Replace(Replace(Split(Template.Html(0),"||")(0),"{?left_beg}",""),"{?left_end}",""),"{?RightInfo}",MyHtml)
	MyHtml = Replace(MyHtml,"{?LeftInfo}",Replace(Template.Html(1),"{?QuickLaunch}",QuickLaunch()))
	MyHtml = Replace(.TempHtml,"{?CurrentScript}",MyHtml)
	Response.Write(MyHtml)
End With
set Template = Nothing
set Netout = Nothing

Function AboutInfo()
	dim rs,MyHtml
	Set rs = Netout.Execute("select AboutInfo from NT_Config")
	MyHtml = rs(0)&""
	AboutInfo = MyHtml
	Set rs = Nothing
End Function
%>